home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / FlowerPaint.rx < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.1 KB  |  80 lines
  1. /* Alchemy script
  2. 100
  3. 1
  4. 3
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2 type b
  9.     ADDRESS value Port
  10.  
  11.     pp_ClosestColor 0 0 0
  12.     Black=result
  13.  
  14.     pp_SetApen Black
  15.  
  16.     Tot=9
  17.  
  18.     pp_AvoidRefresh
  19.     pp_Progresstext 'FlowerPaint'
  20.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  21.  
  22.     pp_ComposeReqOff
  23.     pp_Compose 0 100 0
  24.  
  25.     pp_Progress 1 Tot
  26.     pp_EffectOn
  27.     pp_BlurH 20
  28.     pp_BoxF x1 y1 x2 y2
  29.  
  30.     pp_Progress 2 Tot
  31.     pp_Sin 1 2 100 2 100
  32.     pp_BoxF x1 y1 x2 y2
  33.  
  34.     pp_Progress 3 Tot
  35.     pp_Sin 1 5 326 5 326
  36.     pp_BoxF x1 y1 x2 y2
  37.  
  38.     IF Type>0 then DO
  39.         pp_Progress 4 Tot
  40.         pp_Sin 1 8 680 8 680
  41.         pp_BoxF x1 y1 x2 y2
  42.     END
  43.  
  44.     IF Type>1 then DO
  45.         pp_Progress 5 Tot
  46.         pp_Sin 1 15 900 15 900
  47.         pp_BoxF x1 y1 x2 y2
  48.     END
  49.  
  50.     IF Type>2 then DO
  51.         pp_Progress 6 Tot
  52.         pp_Sin 1 30 1300 30 1300
  53.         pp_BoxF x1 y1 x2 y2
  54.     END
  55.  
  56.     pp_Progress 7 Tot
  57.     pp_GaussianBlur 3
  58.     pp_BoxF x1 y1 x2 y2
  59.  
  60.     pp_Progress 8 Tot
  61.     pp_ConvInit 0 1 0
  62.     A=-1
  63.     pp_Conv 0 0 0 0 0 0
  64.     pp_Conv 1 0 0 A 0 0
  65.     pp_Conv 2 0 A 5 A 0
  66.     pp_Conv 3 0 0 A 0 0
  67.     pp_Conv 4 0 0 0 0 0
  68.     pp_BoxF x1 y1 x2 y2
  69.  
  70.     pp_Progress 9 Tot
  71.     pp_EffectOff
  72.     pp_Pentype 0
  73.     pp_Box x1 y1 x2 y2
  74.  
  75.     pp_ComposeReqOn
  76.     pp_PermitRefresh
  77.     pp_Progressclr
  78.  
  79.     Exit
  80.